DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


sn I EEE 


| 


| t#F LLE**1D©#CL IMAC 
| cececcee LL 111] MM MM = AAAAAA cccccece 

ecceceee Lt 11] MM MM AAAAAA ccccecce 

CC LL 1 MMMM MMMM AA AA CC 

€C LL 1 MMMM MMMM AA AA CC 

CC LL 1 MM MM MM AA AA CC 

cC LL 1 MM MM MM AA AA CC 

CC LL 1] mM OM AAA OCC 

cC LL 1 MM OM OAA AA CC 

eC LL 1 MM == - MM AAAAAAAAAA CC 

cC Mm 1 MM MM AAAAAAAAAA CC 

€C LL 1 mM MM AA AA CC _ 

eC LL 1 mM MM AA AA CC msi 
CCCCCCCC LLLLLLLLLLOTTIIT. «MMMM OA AA ccCCC CCC men 
CCCCCCCE LLLLLELEEL OCTET «= MMMM AA AA CCC CEE ows 

KM MM = AAAAAA = RRRRRRRR 

mM MM AAAAAA ——RRRRRRRR 

MMMM 6MMMM AA AA RR RR 

MMMM MMMM AA AA RR RR 

Ma MN MM AA AA RR RR 

MM MM MM AA AA RR RR 

nM MM AA AA RRRRRRRR 

KM MM AA AA RRRRRRRR 

nM MM AAAAAAAAAA RR RR 

nM MM AAAAAAAAAA RR RR 

nM mM AA AA RR ORR 

KM MM AA AA RR RR 

mM MM AA AA RR RR 

MM MM AA AA RR RR 


| 
| 


penn 
| 
| 
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Version ‘v04-000' 


PARA RARAAAAAAALALA LALA ALLA A LALA LAL ELAR EASA REESE EASE RSE ARRAS EERE EARS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fe ork IS FURNISHED UNDER A LICENSE AND MAY BE USED AND od 
ONLY ACCORDANCE WITH THE yen? OF SUCH LICENSE AND WITH THE 
Site OF THE ABOVE Spd hod NOTICE. THIS SOF TWARE OR ANY OTHE 

COPIES THEREOF MAY aM BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


-* 

lee ® 
© ® 
e ¥ 
’ ® 
# a 
« ® 
© ® 
w * 
ca %e 
wy * 
:@ TRANSFERRED. * 
-@¢ * 
+e b 
. ® 
te * 
°* oy 
°¢ ® 
e a 
¢ oa 
-* Y 
** * 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NO 
cnmpoket ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIP 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RARAAAAASAALALALAAAAL LEAL ALE ALAA E EES EERE ERS ARSE SRSA RSA EES EERE REESE SS 


SARA AAARARAARS RAR AAAAALAAAALALALALAALALE EAE SALAS EASES EERE ERR RARE ARES SS 


DCLLIB 


LARA RARALAAASALALALALE LALA ALE LAL ETERS E EEE SSE E EER RRR SARA ASSAL EERE SSS 


MODIFIED BY: 


v03-003 PCG0003 Peter George 03-Jan-1984 
Use a JSB in DISABLE. 

v03-002 PCG0002 Peter George 15-Jun-1983 
Modify STATUS and LODSTAT. 

v03-001 PCG0001 Peter George 17-Feb-1983 


Remove DEFCMD. 


: MACRO TO LOAD AN ERROR STATUS INTO RO 
. -MACRO LODSTAT abe P C=RO 


MOVL #c.is_' 
-ENDM = =LODST STAT. 


+ ERROR MESSAGE GENERATION 


——— 
| 
} 


| 
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MACRO ERRMSG ERROR 
| -1F NB_ ERROR 
LODSTAT ERROR 
-ENDC 
BSBW DCLSERRORMSG 
-ENDM ERRMSG 
SET COMPLETION STATUS VALUE 


.MACRO STAIUS ERROR, PLC 
LODSTAT ERROR,PLC 
.ENDM ATte 


; SPECIAL MACROS USED BY RESULT PARSE ROUTINES 


-MACRO SETSTAT VAL 
-I1F IDN <VAL><SUCCESS> 
MOVL #1,R0 


IPF 
“IF IDN <VAL><FAIL> 
Na 
MOVZWL #CLIS_"VALO*XFFFF,RO 
.ENDC 
TENDC 
“ENDM = SETSTAT 

: DISABLE CONTROL Y/C AST'S 


»MACRO DISABLE 
JSB DCL$DISABLE 
-ENDM DISABLE 


ENABLE CONTROL Y/C AST'S 


-MACRO ENABLE 
JSB a(SP)+ 
-ENDM ENABLE 


; SPECIAL MACROS USED BY RESULT PARSE ROUTINES 


-MACRO SETINTR VAL,PLC=RO 
MOVE @<<CLI$_ "VAL>!1a31>, PLC 


} 
| 
| 
| 
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MACRO TO SET OR CLEAR A BIT BY BIT NUMBER 


>CALL: 
r SETBIT BI TNUM,FLAGWORD 
; " CLRBIT B1TNUM,FLAGWORD 
> WHERE: 
; BITNUM IS ANY VALID SOURCE OPERAND SECIFYING THE BIT 
OFFSET FROM THE FLAG BASE TO SET/CLEAR 
; FLAGWORD IS ANY VALID DESTINATION OPERAND 
; «MACRO SETBIT VAL,FLAG 
"NTYPE _ $$ VAL 
TIF EQ 2 $$_-*xOEF> 
o1F NDF VAL 
BBSs S*AVAL,FLAG,.+1 
“IF LT <VAL-8> 
b1se #<TaVAL>, FLAG 
BBSS  #VAL.FLAG,.+1 
.ENDC 
“ENDC 
*IFF 
BBSS ‘VAL, FLAG, .+1 
-ENDC 
“ENDM = SETBIT 
.MACRO CLRBIT VAL,FLAG 
"NTYPE _$$ 
“IF EQ 2 $$_-*xXOEF> 
IF NDF VAL 
Bacc S*#VAL,FLAG,.+1 
“IF LT <VAL-8> 
Bice #<1aVAL>, FLAG 
BBCC #VAL,FLAG,.+1 
.ENDC 
*ENDC 
*IFF 
BBCC —~VAL, FLAG, . #1 
ENDC 
"ENDM = CLRBIT 
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